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BBBBBBBB AAAAAA SSSSSSSS SSSSSSSS TTTTTTTTTT RRRRRRRR III! NN NN GGGGGGGG 
BBBBBBBB AAAAAA SSSSSSSS SSSSSSSS_ TTTTTITTTTT RRRRRRRR II1I1 NN NN GGGGGGGG 
BB AA AA SS SS TT RR RR I] NN NN GG 

BB AA AA SS SS TT RR RR I] NN NN GG 

BB AA AA SS SS TT RR RR Il NNNN NN GG 
BB BB AA AA SS SS TT RR RR Il NNNN NN GG 
BBBBBBBB AA AA SSSSSS SSSSSS TT RRRRRRRR I] NN NN NN GG 
BBBBBBBB AA AA SSSSSS SSSSSS TT RRRRRRRR I] NN NN NN GG 

ARABARAAAA SS SS TT RR RR I] NN NNNN GG GGGGGG 
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BB BB AA AA SS $$ TT RR RR I] NN NN GG GG cece 
BBBBBBBB AA AA SSSSSSSS SSSSSSSS TT RR RR IIIIII NN NN GGGGGG eeee 
BBBBBBBB AA AA SSSSSSSS SSSSSSSS TT RR RR III1I1 NN NN GGGGGG cece 
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LL III! SSSSSSSS 
LL I] $s 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LLLLLLLLLL III] SSSSSSSS 
LLLLLLLLLL HII! SSSSSSSS 


FE AE ene Ae EC a se Oe Oe Ee eS REE NO SED : L 


poe 
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| BASSSTRING 16-Sep-1984 01:16:34 AX-11 Bliss-32 V4.0-74 Page 1 
12=808-1 382 98:24 UBASRTL SRE BASSTRING.B52;1 . (1) 
; 1 003 MODULE BASSSTRING ( ' Duplicate a character in a strin 
(3 ¢ 0004 p poet = '1-002' ! Fite: BASSTRING BS. . 
; 4 0004 1 BEGIN 
; 5 005 1! 
3 § Bos : ESSEC E STII ISTIC TTT TTI TIT TTI ITT IIL ISIC TICILTILTILTTTTTTTTiTiTTiTTiTitTt 
; :* ° 
; 8 0008 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
> 9 0009 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
; 19 Bete : - ALL RIGHTS RESERVED. * 
Py : & 
3 \¢ Bot6 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
; 1 001 1 !* ONLY IN ACCORDANCE WITH THE TERM F UCH LICENSE AND WITH THE * 
: 14 0014 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
; 15 0015 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
; 16 Bag 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
: i? Sole : he TRANSFERRED. * 
3 ‘® * 
; 19 0019 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
: 20 0020 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
: $ oos) : ‘w CORPORATION. ® 
3 i® ® 
; 25 $038 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
; 24 0024 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
; 0025 1 !* * 
= 0026 1 !* * 
: 27 0027 1 [eeeeeeerererer eee e ee ee eee EERE HEHEHE HEAR A Ee eeAAAH Ree eeAA AeA AeeH EERE 
; @ 0028 1! 
; ¢ 94 1 
3 0 0030 1 !++ 
‘= 0031 1 ! FACILITY: String support Library 
a 0032 1! 
; 0033 1 ! ABSTRACT: 
; | 34 0034 1! ; ; : 
ee 0035 1! This routine fills a piring with an input number (defaults to 
; 0036 1! the string's current length) of an input character (defaults to 
ae 0037 1! space). 
; 0038 1! 
+4 tb : ; ENVIRONMENT: User mode, AST Level or not or mixed 
$ 41 0041 1 ! AUTHOR: R. Will, CREATION DATE: 13-Mar-79 
; 42 0042 1! 
8 43 004 1 ! MODIFIED By: 
3; (44 0044 1! 
3; 65 0045 1! R. Will, 13-Mar-79: VERSION 01 
; 646 0046 1! - origina 
; 47 0047 1! 1-005 = Use STRSK_FILL_CHAR. JBS 15-APR-1979 
3 re sk ' 1-003 CALL STRSCUPL_CHAR DELETE WHEN COMPILER CALLS STR$> RW 7_nov-79 
; » 0050 1 
; 51 0051 1 !<BLF/PAGE> 
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3 
| BASSSTRING ibs =1984 01:16:34 AX-11 Bliss-32 V4.0-74 
A388 1-8ep-19 4 9 2:56:41 YBASRTL  SRe BasstRing-682:1 


$ 3 0 ¢ . 

3 4 0 1 ! SWITCHES: 

3 5 bee ; : 

; ° 33 } SWITCHES ADDRESSING MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 
; 058 1! 

; @& 0059 1 ! LINKAGES: 

3; 6 (6) 0060 1! 

; o¢ 0061 1 

et: oe Bees 1! 

; 64 4 1 ! TABLE OF CONTENTS: 

; 65 64 1! 

; © 0065 1 

; 67 2066 1 FORWARD ROUTINE 

; & 0067 1 BASSSTRING : NOVALUE; ! Fill a string with a character 
; & 0068 1 

.. 0069 1! 

a. 0070 1 ! INCLUDE FILES: 

‘Ss 0071 1! 

; 7 oh 1 

YY 0075 1 REQUIRE ‘RTLIN:RTLPSECT’; ' Use to declare PSECTs 
a 0168 1 

. © 0169 1 

.~ ar 0170 1! 

3 78 0171 1 =! MACROS: NONE 

; 0172 1! 

: 80 0173 1! 

; 81 0174 1 ! EQUATED SYMBOLS: NONE 
; 0175 1! 

s 83 0176 1! 

;) B4 0177 1 ! PSECT DECLARATIONS 

3; 6 CSS 0178 1! 

s 0179 1 DECLARE_PSECTS (BAS); 
= Or 0180 1! 

4 88 0181 1 ! OWN STORAGE: NONE 

; 64289 piss 1! 

; 90 0183 1! 

: 91 0184 1 ! EXTERNAL REFERENCES: 
— = 0185 1! 

; 0186 1 

3 94 0187 1 EXTERNAL ROUTINE 

7; 9S 0188 1 STRSDUPL_CHAR; 

; «49% 0189 1 
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eh, 
BASSSTRING 16-Sep-1984 01:16:34 AX-11 Bliss-32 
A803 197808- 1386 1:56:41 EBASRTL SRC BASS 
i; 190 1 GLOBAL ROUTINE BASSSTRING (DEST_DESC, ! Pointer to dest str desc 
; WW 191 1 ! Number of characters 
: 100 19¢ 1 INPUT_CHAR) i Character to duplicate 
; 101 0195 1 NOVALUE = 
; 196 B13 1 
3; 195 1 S44 
> 104 9128 1 ! FUNCTIONAL DESCRIPTION: 
3 1% 0197 1! This routine writes LENGTH characters of CHAR into the string pointer 
: 106 0198 1! to by DEST_DESC. If the destination is a fixed length string, and 
: 107 0199 1! LENGTH is greater than the Length of the string. only as many CHARs as 
: 108 0200 1! will fit are copied. If destination is fixed length and LENGTH is 
; 109 0201 1! less than the destination gterng Length then LENGTH CHARs are copied 
; 110 0 oe 7! and the destination is padded with blanks. If the destination is 
. oe 0203 1! a dynamic string, after execution of this routine the destination will 
3 1 0206 1! have a Length of LENGTH. 
; 0205 1! 
:; (1146 0 5] 1 ! FURMAL PARAMETERS: 
3. 6115 0207 1! 
; 1% 0208 1! DEST_DESC.wt.dx pointer to destination string descriptor 
3: 117 0209 1! LENGTH. rl.v value of number of characters to duplicate 
3 BS Osis ; INPUT_CHAR.rb.v value of ASCII character to duplicate 
; 139 Bsi¢ 1 ! IMPLICIT INPUTS: 
: tel 02135 1! 
; \¢¢ 0214 1! NONE 
3; te 0215 1! 
> 126 0216 1 ! IMPLICIT OUTPUTS: 
3 «Ve 0217 1! 
: 126 0218 1! NONE 
3 127 0219 1! 
; 128 0220 1 ! ROUTINE VALUE: 
; +4 0221 1 ! COMPLETION CODES: 
; 1 ocs¢ 1! 
s 43) 0225 1! NONE 
; 13 0224 1! 
3 3 0225 1 ! SIDE EFFECTS: 
3; 136 0226 1! 
3 135 0227 1! NONE 
: 136 0228 1! 
3: 137 S544 1 !-- 
; «4138 0230 1 
; 1, 0231 BEGIN 
: 140 0 3 
3 «(141 8 LOCAL 
3 126 4 CHAR : BYTE; 
: 14 8S 5 
3 «6146 0 $ BUILTIN 
3: «6145 023 ACTUALCOUNT; 
3 146 8 38 
: 147 39 MAP 
: re 0 7 DEST_DESC : REF BLOCK (8,BYTE); 
: 139 *g IF ACTUALCOUNT () EQLU 3 THEN CHAR = .INPUT_CHAR ELSE CHAR = ° °; 
; 13¢ o 44 STRSDUPL_CHAR (DEST_DESC (0,0,0,0), LENGTH, CHAR); 
s %3 45 END; ‘End of bas$STRING 


V4.0=74 
TRING 882; 
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3 
| BASSSTRING ig-se -1984 01:16:34 AX-11 Bliss-32 V4.0-74 = 4 
ASS a aet 94:38:24 YBASRTL SRE BASstRing 682:1 - (3) 
TITLE BASSSTRING 
-IDENT \1-002\ 
-EXTRN STRSDUPL_CHAR 
-PSECT _BASSCODE,NOWRT, SHR, PIC,2 
0000 00000 -ENTRY BASSSTRING, Save nothin : 0190 
sf 04 c3 0002 SUBL2 : . 
0 6C 000 CMPB)s«(AP), #3 > 0242 
06 is BR88 BNEQ : 
6E 0c AC .) OA MOVB NPUT_CHAR, CHAR : 
11 0000 BRB F 
6E 0 90 00010 1$: MOVB #32, CHAR : 
E DD 00015 2$: PUSHL_ SP 3 0244 
08 AC 9F 00015 PUSHAB LEN $ 
04 ag DD 00018 PUSHL pest DESC 4 
¢00000006 00 03 FB 0001B CALLS #3, STRSDUPL_CHAR ; 
04 00022 ET 3: 0245 
; Routine Size: 35 bytes, Routine Base: _BASSCODE + 0000 
: 188 Thi i END 'End of modul 
: 156 0268 1 pads Reames 
3 157 0249 0 ELUDOM 
: PSECT SUMMARY 
: Name Bytes Attributes 
: _BASSCODE 35 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
: COMMAND QUALIFIERS 
4 SLISS/CNECK = CF SELB. JE TIAL OPT IMI ZED/MOTRACE/L 1SHt 158 :BASSTRING/OBJ=08J8 BASS TRING MSRC$:BASSTRING/UPDATE=(ENH$:BASSTRING 
3; Size: 35 code + 0 data bytes 
; Run Time: :01.9 
3; Elapsed Time: 203.5 
3 Lines/CPU Min: 781 
3 Lexemes/CPU-Min: 20687 
; Memory Used: 22 pages 
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; Compilation Complete 
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